home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-19 / surfsrc3.zip / OPENWIN.INC < prev    next >
Text File  |  1991-09-28  |  946b  |  43 lines
  1. procedure OPENWIN (Xa, Ya, Xb, Yb: integer; Clear_scrn: boolean);
  2. { Open a text window on the screen and draw border }
  3.  
  4. var X, Y: integer;
  5.     X1, Y1: integer;
  6.     X2, Y2: integer;
  7.  
  8. begin
  9.   { Set the text colors }
  10.   if RevVideo then begin
  11.     textcolor (BGcol);
  12.     textbackground (Textcol);
  13.   end else begin
  14.     textcolor (Textcol);
  15.     textbackground (BGcol);
  16.   end;
  17.  
  18.   X1 := Xa - 5;
  19.   Y1 := Ya - 2;
  20.   X2 := Xb + 5;
  21.   Y2 := Yb + 2;
  22.   window (1,1,80,25);       { use full screen }
  23.   if (Clear_scrn) then
  24.     clrscr;
  25.   gotoXY (X1,Y1);
  26.   write (chr(201));
  27.   for X := X1+1 to X2-1 do
  28.     write (chr(205));
  29.   write (chr(187));
  30.   for Y := Y1+1 to Y2-1 do begin
  31.     gotoXY (X1,Y);
  32.     write (chr(186));
  33.     gotoXY (X2,Y);
  34.     write (chr(186));
  35.   end;
  36.   gotoXY (X1,Y2);
  37.   write (chr(200));
  38.   for X := X1+1 to X2-1 do
  39.     write (chr(205));
  40.   write (chr(188));
  41.   window (Xa,Ya,Xb,Yb);
  42. end; { procedure Openwin }
  43.